home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / proc.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  3.3 KB  |  94 lines
  1. if (!defined &_PROCUSER) {
  2.     eval 'sub _PROCUSER {1;}';
  3.     eval 'sub PROC_TERM_EXITED {1;}';
  4.     eval 'sub PROC_TERM_DETACHED {2;}';
  5.     eval 'sub PROC_TERM_SIGNALED {3;}';
  6.     eval 'sub PROC_TERM_DESTROYED {4;}';
  7.     eval 'sub PROC_TERM_SUSPENDED {5;}';
  8.     eval 'sub PROC_TERM_RESUMED {6;}';
  9.     eval 'sub PROC_BAD_STACK {1;}';
  10.     eval 'sub PROC_BAD_PSW {2;}';
  11.     eval 'sub PROC_VM_READ_ERROR {3;}';
  12.     eval 'sub PROC_VM_WRITE_ERROR {4;}';
  13.     if (!defined &_ASM) {
  14.     eval 'sub PROC_MY_PID {(( &Proc_PID) 0xffffffff);}';
  15.     eval 'sub PROC_MY_HOSTID {(( &unsigned \'int\') 0xffffffff);}';
  16.     eval 'sub PROC_INDEX_MASK {0x000000FF;}';
  17.     eval 'sub Proc_PIDToIndex {
  18.         local($pid) = @_;
  19.         eval "(($pid) &  &PROC_INDEX_MASK)";
  20.     }';
  21.     eval 'sub PROC_ALL_PROCESSES {(( &Proc_PID) 0);}';
  22.     eval 'sub PROC_NO_FAMILY {( &Proc_PID) -1;}';
  23.     eval 'sub Proc_In_A_Family {
  24.         local($familyID) = @_;
  25.         eval "(($familyID) !=  &PROC_NO_FAMILY)";
  26.     }';
  27.     eval 'sub PROC_SUPER_USER_ID {0;}';
  28.     eval 'sub PROC_NO_ID {-1;}';
  29.     eval 'sub PROC_MIN_PRIORITY {-2;}';
  30.     eval 'sub PROC_MAX_PRIORITY {2;}';
  31.     eval 'sub PROC_NO_INTR_PRIORITY {2;}';
  32.     eval 'sub PROC_HIGH_PRIORITY {1;}';
  33.     eval 'sub PROC_NORMAL_PRIORITY {0;}';
  34.     eval 'sub PROC_LOW_PRIORITY {-1;}';
  35.     eval 'sub PROC_VERY_LOW_PRIORITY {-2;}';
  36.     }
  37.     eval 'sub PROC_KERNEL {0x00001;}';
  38.     eval 'sub PROC_USER {0x00002;}';
  39.     eval 'sub PROC_DEBUGGED {0x00004;}';
  40.     eval 'sub PROC_DEBUG_ON_EXEC {0x00008;}';
  41.     eval 'sub PROC_SINGLE_STEP_FLAG {0x00010;}';
  42.     eval 'sub PROC_DEBUG_WAIT {0x00020;}';
  43.     eval 'sub PROC_MIG_PENDING {0x00040;}';
  44.     eval 'sub PROC_DONT_MIGRATE {0x00080;}';
  45.     eval 'sub PROC_FOREIGN {0x00100;}';
  46.     eval 'sub PROC_DYING {0x00200;}';
  47.     eval 'sub PROC_LOCKED {0x00400;}';
  48.     eval 'sub PROC_NO_VM {0x00800;}';
  49.     eval 'sub PROC_MIGRATING {0x01000;}';
  50.     eval 'sub PROC_MIGRATION_DONE {0x02000;}';
  51.     eval 'sub PROC_ON_DEBUG_LIST {0x04000;}';
  52.     eval 'sub PROC_REMOTE_EXEC_PENDING {0x08000;}';
  53.     eval 'sub PROC_MIG_ERROR {0x10000;}';
  54.     eval 'sub PROC_EVICTING {0x20000;}';
  55.     eval 'sub PROC_KILLING {0x40000;}';
  56.     if (!defined &_ASM) {
  57.     require 'sprite.ph';
  58.     require 'spriteTime.ph';
  59.     if (defined &KERNEL) {
  60.         require 'sigTypes.ph';
  61.         require 'machTypes.ph';
  62.         require 'user/vmTypes.ph';
  63.     }
  64.     else {
  65.         require 'kernel/sigTypes.ph';
  66.         require 'kernel/machTypes.ph';
  67.         require 'vmTypes.ph';
  68.     }
  69.     }
  70.     if (!defined &_ASM) {
  71.     eval 'sub PROC_WAIT_BLOCK {0x1;}';
  72.     eval 'sub PROC_WAIT_FOR_SUSPEND {0x2;}';
  73.     eval 'sub PROC_NUM_GENERAL_REGS {16;}';
  74.     eval 'sub PROC_MAX_ENVIRON_NAME_LENGTH {4096;}';
  75.     eval 'sub PROC_MAX_ENVIRON_VALUE_LENGTH {4096;}';
  76.     eval 'sub PROC_MAX_ENVIRON_SIZE {100;}';
  77.     eval 'sub PROC_MAX_INTERPRET_SIZE {80;}';
  78.     eval 'sub PROC_TIMER_REAL {0;}';
  79.     eval 'sub PROC_MAX_TIMER { &PROC_TIMER_REAL;}';
  80.     eval 'sub PROC_PCB_ARG_LENGTH {256;}';
  81.     eval 'sub PROC_MIG_IMPORT_NEVER {0;}';
  82.     eval 'sub PROC_MIG_IMPORT_ROOT {0x00000001;}';
  83.     eval 'sub PROC_MIG_IMPORT_ALL {0x00000003;}';
  84.     eval 'sub PROC_MIG_IMPORT_ANYINPUT {0x00000010;}';
  85.     eval 'sub PROC_MIG_IMPORT_ANYLOAD {0x00000020;}';
  86.     eval 'sub PROC_MIG_IMPORT_ALWAYS {( &PROC_MIG_IMPORT_ANYINPUT |  &PROC_MIG_IMPORT_ANYLOAD);}';
  87.     eval 'sub PROC_MIG_EXPORT_NEVER {0;}';
  88.     eval 'sub PROC_MIG_EXPORT_ROOT {0x00010000;}';
  89.     eval 'sub PROC_MIG_EXPORT_ALL {0x00030000;}';
  90.     eval 'sub PROC_MIG_ALLOW_DEFAULT {( &PROC_MIG_IMPORT_ALL |  &PROC_MIG_EXPORT_ALL);}';
  91.     }
  92. }
  93. 1;
  94.